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XD —<DESCRIPTOR_CONSTANT> 
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X86-to Tapestry transition exception handler ^ 

II Ttiis liandler is entered under the following conditions: 
// 1 . An x86 caller invokes a native function 
// 2. An x86 function returns to a native caller 
// 3. x86 software returns to or resumes an interrupted native function following 
// an extemal asynchronous interrupt, a processor exception, or a context switch 
^321 

dispatch on the two least-significant bits of the destination address { 
case"00" // calling a native subprogram 

// copy linkage and stack frame information and call parameters from the memory 

// stack to the analogous Tapestry registers 

LR — [SP++] // set up linkage register . . 
AP-»-SP // address of first argument-^*^^^ 326 ''322 

SP SP - 8 // allocate return transfer argument area 
SP SP & (-32) // round the stack pointer down to a 0 mod 32 boundary ^ 
XD-i- 0 // inform callee that caller uses X86 calling conventions 328 j 

case "Or // resuming an X86 thread suspended during execution of a native routine >| 
if the redundant copies of the save slot number in EAX and EDX do not match or if "1 07-1 
the redundant copies of the timestamp in EBX:ECX and ESI:EDI do not match { J 
// some form of bug or thread corruption has been detected 
goto TAPESTRY_CRASH_SYSTEM( thread-corruption-error-code ) 372 

save the EBX:ECX timestamp in a 64-bit exception handler temporary register ^^^^ I 
(this will not be ovenwritten during restoration of the full native context) J f ^'^ 

use save slot number in EAX to locate actual save slot storage — 374 

restore full entire native context (includes new values for all x86 registers) -^^75 

if save slot's timestamp does not match the saved timestamp { "^376 
// save slot has been reallocated; save slot exhaustion has been detected 
goto TAPESTRY_CRASH_SYSTEM( save-slot-overwritten-error-code )^277 

free the save slot -^^''^ 

case"1 0" // retuming from X86 callee to native caller, result already in registers 

RV0<63:32> -^edx<31:00> // in case result is 64 bits 333 . 

convert the FP top-of-stack value from 80 bitX86 form to 64-bit form in RVDP ^-^^04 ( ^'^^ 
SP -^ESI // restore SP from time of call— -^337 '^^^ 

case-H" // returning from X86 callee to native caller, load large result from memory ^ 
RV0..RV3 load 32 bi?tes from [ESI-32] // (guaranteed naturally aligned) -\ ^^f. I o«q 
SP-^ESI // restore SP from time of call A.337 J 

EPC^EPC & -4 // reset the two low-order bits to zero -x 

^336 



RFE 



^338 
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340 

Tapestry-to-X86 transition exception handler 

// This handler is entered under the following conditions: 
// 1 . a native caller invokes an x86 function 
// 2. a native function returns to an x86 caller 
switch on XD<3:0> { ^^^^ 

XD_RET_FP: // result type is floating point 

FO/FI FINFLATE.de( RVDP) // X86 FP results are 80 bits 
SP^ from RXA save // discard RXA, pad, args 

FPCW-^image after FINIT & push // FP stack has 1 entry 
goto EXIT 

XD_RET_WRITEBACK: // store result to @RVA. leave RVA in eax 

RVA— from RXA save // address of result area 

copy decode(XD<8:4>) bytes from RV0..RV3 to [RVA] 
eax^ RVA // X86 expects RVA in eax 

SP-^from RXA save // discard RXA, pad, args 

FPCW-^image after FINIT // FP stack is empty 

goto EXIT 

XD_RET_SCALAR: // result in eax:eda 

edx<31 :00> ■*- eax<63:32> // in case result is 64 bits 
SP-^from RXA save // discard RXA, pad, args 

FPCW-^image after FINIT // FP stack is empty ^ 

goto EXIT 

XD_CALL_HIDDEN_TEMP: // allocate 32 byte aligned hidden temD^343 
esi-^SP // stack cut back on return 

SP^SP-32 //allocate max size temp I344 

RVA-^SP //RVAconsumed later by RR J 

LR<1:0>^"ir //flag address for retum & reload-^. _ 

gotoCALLCOMMON 345 

default: // remaining XD_CALL_xxx encodings 

esi-^SP // stack cut back on retum 

LR<1:0>-^"10" //flag address for retum 343 

CALLCOMMON: 347 ^346 

interpret XD to push and/or reposition args 
[„SP]-^ LR // push LR as retum address 

EXIT: \- 348 

setup emulator context and profiling ring buffer pointer 

} ^349 

RFE-^ //to original target 

} 
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350 
/ 

interrupt/exception handler of Tapestry operating system: " 
// Control vectors here when a synchronous exception or asynchronous interrupt is to be 
// exported to / manifested in an x86 machine. 

// The interrupt is directed to something within the virtual X86, and thus there is a possibility 
// that the X86 operating system will context switch. So we need to distinguish two cases: 
// either the running process has only X86 state that is relevant to save, or 
// there is extended state that must be saved and associated with the current machine context 
// (e.g., extended state in a Tapestry library call in behalf of a process managed by X86 OS) 
if execution was inten^upted in the converter - EPC.ISA == X86 { 1 
// no dependence on extended/native state possible, hence no need to save any f-351 
goto EM86_DeliverJnterrupt( interrupt-byte ) 
} else if EPC.Taxi_Active { ^ 
// ATaxi translated version of some X86 code was running. Taxi will rollback to an 
// x86 instruction boundary. Then, if the rollback was induced by an asynchronous extemal 
// interrupt, Taxi will deliver the appropriate x86 interrupt. Else, the rollback was induced 
// by a synchronous event so Taxi will resume execution in the converter, retriggering the 
// exception but this time with EPC.ISA == X86 
goto TAXi_RolIback( asynchronous-flag, interrupt-byte ) 
}elseifEPC.EM86{ 

// The emulator has been interrupted. The emulator is coded to allow for such 
// conditions and permits re-entry during long running routines (e.g. far call through a gate) y 354 
// to deliver external interrupts 
goto EI\/l86_DeliverJnternjpt( interrupt-byte ) 



>353 



J 



\ 



} else { 



// This is the most difficult case - the machine was executing native Tapestry code on ^ 
// behalf of an X86 thread. The X86 operating system may context switch. We must save 
// all native state and be able to locate it again when the x86 thread is resumed. 
^361 

allocate a free save slot; if unavailable free the save slot with oldest timestamp and try again 
save the entire native state (both the X86 and the extended state) 1 oeo 
save the X86 EIP in the save slot J 353 

ovenwrite the two low-order bits of EPC with "01 " (will become X86 interrupt EIP) )> 360 

store the 64-bit timestamp in the save slot, in the X86 EBX:ECX register pair (and, 1 . 

for further security, store a redundant copy in the X86 ESI:EDI register pair) 
store the a number of the allocated save slot in the X86 EAX register (and, again for \ 

further security, store a redundant copy in the X86 EDX register) j 
goto EM86_DeliverJnterrupt( inten-upt-byte )-y 



369 



FIG. 3J 



typedef struct { 
save_sIot_t * 
save_sIot_t * 
unsigned int64 
unsigned int64 
unsigned int64 

timestampj 
int 

boolean 
} save_slot_t; 
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newer, // pointer to next-most-recently-allocated save slot 
older; // pointer to next-older save slot 

epc; // saved exception PC/IP 

pew; // saved exception PCW (program control word) . 

registers[63]; // save the 63 writeable general registers ^^^^ 

// other words of Tapestry context 
timestamp; // timestamp to detect buffer overrun -y 
save_slot_ID; // ID number of the save slot -n 
save_slotJs_full; // full / empty flag 357 

^359 
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save_sIot_t * 
save slot t* 



save_slot_head; 
save_slot_tail; 



// pointer to the head of the queue 
// pointer to the tail of the queue •Y _379a 
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system initialization 
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SP — [SP] // POP RA AND ARCS jV 
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^320 
HANDLER: x86 TO RISC 



EPC<1:0>==00: 

LR — [SP] 
SP — SP + 4 
AP — SP 
SP — SP-8 
SP — SP&(-32) 
XD — 0 
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EPC<1:0>==01: 
x86 REGS POINTS TO SAVE SLOT 
USING TS VERIFY NO OVERWRITE 
RESTORE FULL STATE 
FREE SAVE SLOT 
EPC<1:0> — 00 



EPC<1:0>==1x: ^ ^ 
REFORMAT/ REPOSTION THE 

FUNCTION RESULT PER EPC<0> 
SP —ESI 

EPC<1:0> — 00 I 
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HANDLER: RISCTOx86 

XD CONTAINS RETURN-DESCRIPTOR: 
INTERPRET XD: 

- REFORMAT/REPOSTION RESULT 
-LOADFPSW 

SP— [SP]//POPRA&ARGS 
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HANDLER: x86 TO RISC 



EPC<1:0>==00: 
LR— [SP] 
SP^SP + 4 
AP— SP 
SP— SP-8 
SP— SP&(-32) 

_XDjrzO 

EPC<1:0>==01: 
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FREE SAVE SLOT 
EPC<1:0>— 00 370 
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HANDLER: RISC TO x86 
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